home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / dev / basic / DLL.lha / DLL / Fatal_Error.asc < prev    next >
Encoding:
Text File  |  2000-08-26  |  662 b   |  26 lines
  1. Statement Fatal_Error{Text$}
  2.  
  3.    DEFTYPE.EasyStruct es
  4.  
  5.    If Used Window < 0                     ; Is there a current window?
  6.       WbToScreen 0                        ; No - so open an invisible
  7.       Window 0,0,10,100,100,$1900,"",1,2  ; ... one on workbench
  8.    EndIf
  9.  
  10.    Text$   = Replace$ (Text$,"|",Chr$(10))
  11.    Text$   = "ERROR - "+Text$
  12.    Title$  = "Fatal Error"
  13.    Gadget$ = "Cancel Program"
  14.  
  15.    es\es_StructSize   = SizeOf.EasyStruct
  16.    es\es_Flags        = 0
  17.    es\es_Title        = &Title$
  18.    es\es_TextFormat   = &Body$
  19.    es\es_GadgetFormat = &Gadget$
  20.  
  21.    ret.l = EasyRequestArgs_ (Peek.l(Addr Window(Used Window)),&es,0,0)
  22.  
  23.    End
  24.  
  25. End Statement
  26.